home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 122 / Tiger_Disk_122_20xx_Tiger-Crew-Disk_de_Side_B.d64 / wie viel (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  86 lines
  1. 10 rem how many?             july 1980
  2. 20 poke53280,7:poke53281,1:goto40
  3. 30 y=int(rnd(1)*15)+2:return
  4. 40 print"[147]"
  5. 50 forx=1to10:print:a=int(rnd(1)*10)+1
  6. 60 gosub30:poke646,y
  7. 70 onagosub680,690,710,730,750,770,790,810,830,850
  8. 80 print" wie viel ?"
  9. 90 gosub 530:r=val(in$)
  10. 100 ifa<>rthengosub230:goto70
  11. 110 gosub 380
  12. 120 next
  13. 130 forz=1to80:print"[150]smile [211][211]  [218][218][218]  ";:next
  14. 140 print"  du hast nur";f;"[157]mal falsch gezaehlt!"
  15. 150 print"  ";ze;"[157]mal hast du laenger als":print"     5 sekunden gebraucht."
  16. 160 pu=pu+100-((f*5)+(ze*3)):ifpu<0thenpu=0
  17. 170 print" dies bringt dir ";pu;"[146]punkte !"
  18. 180 print"    moechtest du nochmal zaehlen ?"
  19. 190 print"    j=ja / n=nein"
  20. 200 getz$:ifz$=""then200
  21. 210 ifz$="j"thenf=0:ze=0:goto40
  22. 220 print"    tschuessi !":end
  23. 230 f=f+1:print""
  24. 240 print"[144]           [166][166][166][166][166]
  25. 250 [153]"stop          spc((NULL)(NULL)(NULL)(NULL)(NULL)spc(
  26. 260 print"[144]         [166][203][203][203][203][203][203][203][166]
  27. 270 [153]"stop        spc((NULL)(NULL)(NULL)(NULL)mid$mid$mid$mid$mid$spc(
  28. 280 print"[149]      [206][166]           [166][205]
  29. 290 [153]"verify     (NULL) spc(stop  (NULL)lenright$close(NULL)lenright$ verifyclosespc(close(NULL)
  30. 300 print"[149]     [165] [166] [144] [212][159]*[144][217] [199][159]*[144][217] [149] [166]  [165]
  31. 310 [153]"     fn spc( stop mid$to(NULL) mid$asc(NULL)verify  spc(  fn
  32. 320 print"     [205] [166]  [156]   [209]  [149]   [166] [206]
  33. 330 [153]"      tab(spc( def  tototototo verify  spc(tab(
  34. 340 print"        [166][150] [206]     [205][149][160][166]
  35. 350 [153]"        spc(         spc(
  36. 360 print"         [166][166]     [166][166]
  37. 370 [153]"           spc(spc(spc(spc(spc(":[142]
  38. 380 [153]""
  39. 390 [153]" stop          spc(spc(spc(spc(spc(
  40. 400 print" [144]         [166]@@@@@[166]
  41. 410 [153]" stop        spc(@@@@@@@spc(
  42. 420 print" [144]       [166]         [166]
  43. 430 [153]" for     (NULL)spc(           spc((NULL)
  44. 440 print" [129]    [206] [166]  [213][195][201][160][213][195][201][129][160][160][166][160][205]
  45. 450 [153]" for    fn spc(  (NULL)cont*(NULL) chr$cont*(NULL)for  spc(  fn
  46. 460 print" [129]    [165] [166]  [202][164][203] [202][198][203][129]  [166]  [165]
  47. 470 [153]" for    (NULL) spc(   sys  (NULL)for     spc( (NULL)
  48. 480 print" [129]     [163][166][150] [205]      [206] [129] [166][163]
  49. 490 [153]" for       spc(def (NULL)totototo(NULL)closeforclosespc(
  50. 500 print"         [166]       [166]
  51. 510 [153]"          spc(     spc(
  52. 520 print"           [166][166][166][166][166]":return
  53. 530 ti$="000000"
  54. 540 in$=" ":zt=ti:zc=2:zd$=chr$(20)
  55. 550 cr$=chr$(13):print" ";
  56. 560 getz3$:ifz3$<>""then590
  57. 570 ifzt<=tithenprintmid$(" [166]",zc,1);"[157]";:zc=3-zc:zt=ti+15
  58. 580 goto560
  59. 590 ifti$>"000005"thenze=ze+1
  60. 600 z=asc(z3$):zl=len(in$):if(zand127)<32thenprint" [157]";:goto640
  61. 610 iffland(zand127)>64and(zand127)<91thenz3$=chr$((z+128)and255)
  62. 620 ifzl>254then560
  63. 630 in$=in$+z3$:printz3$;zd$;z3$;
  64. 640 ifz=13thenin$=mid$(in$,2):printcr$;:return
  65. 650 ifz=20andzl>1thenin$=left$(in$,zl-1):print"[157]";:goto560
  66. 660 ifz=141thenz3$=chr$(-20*(zl>1)):forz=2tozl:printz3$;:nextz:goto540
  67. 670 goto560
  68. 680 print"    [166][166]":print"    [166][166]":return
  69. 690 print"   [166][166]   [166][166]":print"   [166][166]   [166][166]":return
  70. 710 print"     [166][166][160][160][160][166][166][160][160][160][166][166]"
  71. 720 print"     [166][166]   [166][166]   [166][166]":return
  72. 730 print"  [160][166][166][160][160][160][160][166][166][160][160][160][160][166][166][160][160][160][160][166][166]"
  73. 740 print"   [166][166][160][160][160][160][166][166][160][160][160][160][166][166][160][160][160][160][166][166]":return
  74. 750 print"  [166][166]   [166][166]   [166][166]  [166][166]   [166][166]"
  75. 760 print"  [166][166][160][160][160][166][166][160][160][160][166][166][160][160][166][166][160][160][160][166][166]":return
  76. 770 print"   [166][166]   [166][166]   [166][166]   [166][166]   [166][166]   [166][166]"
  77. 780 print"   [166][166][160][160][160][166][166][160][160][160][166][166][160][160][160][166][166]   [166][166]   [166][166]":return
  78. 790 print"  [166][166][160][160][160][166][166][160][160][166][166][160][160][166][166][160][160][160][166][166][160][160][166][166][160][160][166][166]"
  79. 800 print"  [166][166][160][160][160][166][166][160][160][166][166][160][160][166][166][160][160][160][166][166][160][160][166][166][160][160][166][166]":return
  80. 810 print"   [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166]  [166][166]  [166][166]  [166][166]"
  81. 820 print"   [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160] [166][166]  [166][166]":return
  82. 830 print"  [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166]  [166][166]  [166][166]  [166][166]  [166][166]"
  83. 840 print"  [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160] [166][166]  [166][166]  [166][166]":return
  84. 850 print" [166][166][160] [166][166]  [166][166]  [166][166]  [166][166]  [166][166]  [166][166]  [166][166]  [166][166]  [166][166]"
  85. 860 print" [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166]  [166][166]  [166][166]":return
  86.